#!/usr/bin/perl -w
package dba;

use strict;
use DBI;

our $h;
our $dir='/opt/ftp/McAfee';

sub reconnect()
{
    $h=DBI->connect('DBI:mysql:database=AV;host=localhost','avir','PassWoord') || die $DBI::errstr;
}
&reconnect;
chdir $dir;

1
